home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1993 November
/
JCSM Shareware Collection - 1993-11.iso
/
cl720
/
vxbase1j.lzh
/
VXFORM8.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-01-28
|
3KB
|
95 lines
VXFORM8
Miscellaneous Examples
Form1%
ButtonQuit
&Quit
ButtonNext
&Next
JoinBox
EvalBox
CatNameBox
CatBox
Label2
>vxEvalString("trim(catname)+' is category '+category", EvStr$)
Label1
. vxEvalLogical("left(category,1)='C'", Eval$)
Label3
#xBase Expression Evaluation Example
MS Sans Serif
Label5
Record Structure Example
MS Sans Serif
@ Form_Load
vxSelectDbf
AirtypesDbf
vxTopo
Form8Display
CatRec
vxEof
vxRecord
CatBox
TextO
Category
CatNameBox6
CatName
Form_Paint
Form_Unload
Cancel
vxClose
vxWindowDereg
VXFORM8
hWndk
ButtonQuit_Click
ButtonNext_Click
vxSkip
FALSE
vxDeleted
MBuff
BufferType
vxEvalLogicalG
EvalBox
vxEvalString
EvStr|
JoinBox
JoinBox_Change
Label2_Click
CatBox_Changea
vxFormFrame
VXFORM9
vxCtlStyle
TestAlpha
VX_RECESS
TestChar
TestDate
TestNum
TestPass
TestUpper
vxReplRecord
vxWrite
vxWriteHdr
ButtonNext_Click
skip forward one record
if skip error, only allow exita
Error on Skip Next. Try Reindex.
test for end of file
End of File!
ButtonQuit_Click
Form_Load
Form_Paint
Form_Unload
Form8Display
the structure of the types file is defined-
in the global module as type CatRec
if we wanted to use a string as a recordc
buffer instead of a user defined type, we
would use code as follows:o
Buf$ = String$(512,0)
If vxRecord(ByVal Buf$) ThenT
we may also replace an entire
record by pointing at a defined
record or string containing the recordt
example of xBase logical expression evaluation-
left(category,1)='C'
example of xBase string expression evaluation
trim(catname) + ' is category ' + category